on geturl(FTPURL)
 tell application "Anarchie"
  activate
  set ftpResult to -23005
  repeat until ftpResult = 0
   with timeout of 60000 seconds
    set ftpResult to geturl (FTPURL as string)
    if ftpResult ≠ 0 then close front window
   end timeout
  end repeat
 end tell
end geturl